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Appendix A 

COMMON BLOCK AND VARIABLE DEFINITION 

Table A.l presents common block definition and use information for 
all comnon blocks in the ABC-ART program. For each common block, the 
routines where variables in the block are initially defined, redefined, 
and used are shown. 

In Tables A. 2, A. 3, and A. 4 alphabetical lists of all variables in 
the Fleet Accounting, Airframe Manufacturer, and Air Carrier Modules, 
respectively, are presented. For each variable, the mode type (real, 
integer, etc.), the means by which values are assigned (input, calcula- 
tion, etc.), the dimension if an array, the parameters referenced by each 
array subscript (aircraft type, year, etc.), the common block membership, 
the routine where a value was initially assigned, and the definition of 
the variable are given. The codes used in these tables are given in foot- 


notes to the 


tables 



Table A.l 

COMMON BLOCK DEFINITION AND USAGE 


nr nnr 

( ROUTINES WHERE COMMON BLOCK IS 

OLvwN 

NAME 

DEFINED 

REDEFINED 

USED 

ACCASHF 

CASHFLW 


CASHFLW, INRR, INTROR 

ACCINCO 

REVENUE 


REVENUE, CASHFLW, INTROR 

ACCOST 

CASHFLV 


CASHFLW 

ACCUMS 

SHARE 


BET, SHARE, CURVES 

CASHFLO 

CASHFLW 


CASHFLW, INRR, INTROR 

COMPCST 

COMP COS 


COMPCOS, CASHFLW, INTROR 

COSTOT 

ACCOST, COMP COS 


ACCOST, COMPCOS, COSTPR 

CSHFLO 

ACCOST 


ACCOST, COMPCOS 

CUMOUT 

ACCOST 


ACCOST, COSTPR 

DELAY 

RDTE 


RDTE 

DELIVER 

PLANT 


PLANT, REVENUE, COMPCOS (in ax±v«) 

DEMAND 

INPLANT 


INPLANT, PLANT 

IN 



OPLIFE, REPAY, DEPSUB, NETSUB, 




SUM, CFSUB, DCFSUB, OUTPUT, TAX 

INCOME 

REVENUE 


REVENUE, CASHFLW, INTROR 

INDICES 

BET 


BET, AMORITZ, MODS, BUYS, 




PLOTS GL, INPLANT 

LIFETIM 

INPLANT 


PLANT, INPLANT 

MARKET 

3ET 


BET, BUYS 

MAXP 

PLANT 


PLANT 

MODS 

BET 


BET, MODS 

ORDER 

PLANT 


PLANT, REVENUE, COMPCOS (faactive* 

PERIOD 

RDTE 


RDTE 

PLOT DAT 

BET 


BET, CURVES, PLOTTER 

POP 

BET 


BET, AMORITZ, BUYS, PLOTSGL, 




INPLANT 

PRDSCHL 

PLANT 


PLANT, COMPCOS (inactive) 

PRICED 

ACPKICE 

INPIANT 

ACPRICE, INPLANT, REVENUE 

PRINT 

INPLANT 


INPLANT, INTROR 

PRODIDS 

COMP COS 


COMPCOS, INTROR 

PRODUCT 

PLANT 


PLANT, COMPCOS 

RDTECMP 

RDTE 


RDTE, CASHFLW, INTROR 
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Table A.l 

COMMON BLOCK DEFINITION AND USAGE (Concluded) 


BLOCK 

NAME 


RDTELBL 

RESULTS 

SHARES 

STARTER 

STARTUP 

STATLIST 

TOTAL 

TOTALS 

TRDTEC 

TTLCMP 

ITS 


RDTE 

BET 

SHARE 

BET 

INPLANT 

BET 

PLANT 

BET 

ACCOST 

ACCOST 

PLANT 


DEFINED 


ROUTINES WHERE COMMON BLOCK IS 
REDEFINED ; 


USED 


MODS 

BET 


PLANT 


RDTE, INTROR 

BET, MODS, BUYS, PLOTS CL 

BET, SHARE 

BET, CURVES, PLOTTER, PLOTSGL 
INPLANT, PLANT 
BET, MODS, AMORTIZ, PLOTSGL 
PLANT, COMPCOS, REVENUE 
BET, SHARE 

ACCOST, RDTE, COSTPR, COMPCOS 
ACCOST, COMPCOS, COSTPR 
PLANT, RDTE, COMPCOS (Inactive) 
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Table A. 2 (Continued) 
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Table A. 2 (Continued) 



6 


NONEW 1 I BET Number of new aircraft types in a market. 

NORETIR R I 10,46 A,Y POP BET Humber of aircraft retired from service of each 

type In each year. 

NORTR R C TOTALS BET Number of aircraft of a given type retired in a 















Table A. 2 (Continued) 



X S 

& 8 ! 


£ 3 

£ §> 


a given year by aircraft of a particular type or 
In a market or in all markets. 

31 Y PLOTSGL RPMs flown in a year by aircraft of a specific 

type. 

30,31 C,Y PLOTDAT CURVES Array for storing RPMs flown for plotting market 
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DEFINITION OF AIRFRAME MANUFACTURER MODULE VARIABLES 
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Table A. 3 (Continued) 
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Appendix B 

DESCRIPTION OF PLOTTER SOFTWARE ROUTINES 

The plotted output of the Fleet Accounting Module is generated on 

the ZETA PLOTTER 230, using a CDC 7600 computer. The plotter software 

used by the Fleet Accounting Module is described in this appendix. This 

software includes subroutines PLOT, SYMBOL, PLOTS, RSTR, LINAXS, and 

NUMBER. The descriptions provided here were extracted from internal 

* 

NASA Ames documentation . Listings of the source code for the routines 
are provided in Appendix C. 

SUBROUTINE PLOT(X,Y,IPEN) 


PLOT performs the basic plotting function of moving the pen from its 

current location to a specified location with the pen either up or down. 

X,Y - The coordinates (in inches) of the point to which the pen is 

to be moved. The positive X direction is defined as parallel 
to the margin of the plotting paper and toward the clean roll 
(package) of paper (i.e., from left to right in the normal 
fashion as one stands alongside the plotter in the indicated 
position) . 


* .. 

L. C. Evans, Memorandum for Systems Studies Dlvison Staff on Plotter 
Software," NASA-Ames MS:202-8, Moffett Field, California (April 1974). 
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IPEN 


The magnitude of IPEN specif j the operation to be performed: 


IPEN ■ 0 No change in pen position; present pen location 
is redefined as (X,Y). 

■ 1 Pen is moved to (X,Y) without raising or lowering 

the pen. 

• 2 Pen is moved to (X,Y) with pen down. 

■ 3 Pen is moved to (X,Y) with pen up. 

■ 4 No pen movement; the current location of the pen 

is returned in (X,Y). 

■ 5 Initialization call; used by PLOTS. 

■ 6 Pen is moved to a new "page", the plotter buffer 

is dumped, and the pertinent parameters are re- 
initialized. readying the plot software either 
for termination of the program or for a new plot. 

■ 7 Used to change the plotting factor (if X > 0) or 

the plotter grain (if X < 0 and Y > 0); no opera- 
tion if X < 0 and Y < 0. This value of IPEN 
should not be used unless the user is familiar 
enough with the coding of PLOT to understand what 
effects changes in these values will have. 

■ S Pen is raised but not moved. 

■ 9 Pen is lowered but not moved. 

■ 10 (not currently used). 

■ 11,12,13,14 Same as IPEN * 1,2, 3,4, except that plot 

is offset, scaled, and rotated. 

* 20 Same as OPEN * 13, except that pen position is saved. 

■ 21,22,23 Same as IPEN * 11,12,13, except that pen move- 

ment is calculated relative to the pen position 
saved from the last call to PLOT with IPEN ■ 20. 

In th" case of IPEN - -1,-2, -3, -11, -12, -13, -21, -22, -23, the action 
is the same as that described above, but after the new pen loca- 
tion has been reached, it is redefined as the origin. 
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SUBROUTINE SYMBOL (XLLHC , YLLHC .HEIGHT , BCD , ORIENT , NCHAR) 


SYMBOL causes a string of alphanumeric information to be plotted. 

XLLHC, YLLHC - For the purposes of visualization, each character can be 
thought of as being drawn inside a rectangle whose size 
is determined by the value of HEIGHT. The size of the 
rectangle is the same for all characters involved in a 
given call to SYMBOL. The value of (XLLHC, YLLHC) gives 
the coordinates of the lower left-hand corner of the rec- 
tangle associated with the first character to be plotted. 

HEIGHT - The height of the characters (in inches). The width of each 
character, for the purposes of determining the length of a 
plotted character string, is 0.8*HEIGHT. 

BCD - An array containing the character string to be plotted. 

ORIENT - The orientation at which the string is to be plotted, measured 

COW in degrees from the +X axis. 

NCHAR - The number of characters to be plotted. 

If NCHAR is less than zero, one of a series of plotting 
symbols is drawn centered on the point given by (XLLHC, YLLHC ) . 
C Fifteen symbols are available, and the one drawn, is determined 

s by the absolute value of NCHAR (taken modulo 15) according to: 

-NCHAR Plotting Symbol 

1 square 

2 circle 

3 triangle 

4 cross ("plus" sign) 

5 cross ("X") 

6 diamond 

7 tilted hourglass 

8 upside-down teepee 

9 Z 

10 Y 

11 lozenge 

12 asterisk (comb, of 4 & 5) 

13 hourglass 

14 vertical line 

15 star 
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The standard character set, as represented by the symbols on the 029 
keyboard, is available through SYMBOL, with the exception of the follow- 
ing nine symbols: _, | , ' , @ ,"1, & , C , # , 0-8-2. 


SUBROUTINE PLOTS (LUN) 

PLOTS performs all of the necessary initialization for the plotting 
software. It should be called prior to calling any other routine in 
the package. 

LUN - Logical unit number. In addition to transmitting this infor- 
mation to the plotting routines, a tape of this number must 
be declared in the user's PROGRAM statement. 


SUBROUTINE RSTR(IARG) 

RSTR generates the call CALL PLOT(0.,0.,6) in order to clear the plot- 
ting buffers and move to a new page. 

IARG - A dummy argument; it is ignored. 
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SUBROUTINE LINAXS (XO , YO , XI , Y 1 , LABS IZ , WHICH, NTIC , NLFREQ , VALO , VALMAX , 
NDIG IT , NLABEL, LABEL) 


LINAXS plots and labels a linear axis. 

XO - X coordinate of the left-hand edge of the plot in inches. 

YO - Y coordinate of the lower edge of the plot in inches. 

XI - X coordinate of the right-hand edge of the plot in inches. 

Y1 - Y coordinate of the upper edge of the plot in inches. 

LABSIZ - (REAL) Size of the labels in inches. 

WHICH - (INTEGER) Indicates whether a horizontal or vertical axis Is 
to be plotted: 

WHICH - +1 vertical 

* -1 horizontal 

NTIC - Number of tick marks, including one at the end of the axis. 

This is also, therefore the number of intervals into which 
the tick marks divide the axis. 

NLFREQ - Frequency with which tick marks are to be labeled. 

VALO - Value of the axis variable at the beginning of the axis. 

VALMAX - Value of the axis variable at the end of the axis. 

NDIGIT - Number of significant digits to be used in writing tick mark 
labels. 

NLABEL - Number of characters in axis label. 

LABEL - Array containing the axis label. 
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SUBROUTINE NUMBER (XLLHC , YLLHC , HEIGHT, A, ORIENT , N) 


NUMBER converts a number to its EBCDIC representation and plots it. 


XLLHC, YLLHC - The coordinates in Inches of the lower left-hand corner 

of the character string to be plotted. (See the write-up 
for SYMBOL for a more complete explanation.) 

HEIGHT - The height in inches of the number on the plot. 

A - The number which is to be converted and plotted; is considered 

to be an array if N is a FORMAT. 

ORIENT - The orientation at which he number is to be plotted. 

N - If the absolute value of N is less than 20, then the value of 

N is the number of decimal places to be included. If the 
absolute value of N is not less than 20, then N is assumed 
to be an array containing the FORMAT with which the number (s) 
in A are to be plotted. If N contains a format, then the 
element of the array following the end of the format must 
contain all EBCDIC blanks, and the next word must contain 
the number of values in the array A which are to be written. 
The character string generated by the format must be no more 
than 1000 characters long and must be terminated by an *’<§" 
symbol . 

If HEIGHT is less than zero, (XLLHC, YLLHC) is assumed to specify the 

lower right-hand corner of the last character to be plotted. 
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LISTING OF PROGRAM SOURCE CODE FOR THE 
AIRFRAME MANUFACTURER MODULE 
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COSMIC SOFTWARE SUBMITTAL INFORMATION 

Abstract 

The Analysis of the Benefits and Costs of Aeronautical Research and 
Technology (ABC-ART) models have been developed by NASA for use in analyz- 
ing the economic feasibility of applying advanced aeronautical technology 
to future civil aircraft. The methodology is composed of three major modules: 
Fleet Accounting Module, Airframe Manufacturer Module, and Air Carrier Module. 

The Fleet Accounting Module is used to estimate the number of new aircraft 
required as a function of time to meet demand. This estimation is based 
primarily upon the expected retirement age of existing aircraft and the 
expected change in revenue passenger miles demanded. Fuel consumption 
estimates are also generated by this module. The Airframe Manufacturer 
Module is used to analyze the feasibility of manufacturing the new 
aircraft demanded. The module includes logic for production scheduling and 
estimating manufacturing costs. For a series of aircraft selling prices, 
a cash flow analysis is performed and a rate of return on investment is 
calculated. The Air Carrier Module provides a tool for analyzing the 
financial feasibility of an airline purchasing and operating the new air- 
craft. This module includes a methodology for computing the air carrier 
direct and indirect operating costs, performing a cash flow analysis, and 
estimating the internal rate of return on investment for a set of air- 
craft purchase prices. 

The ABC-ART models are exercised in two distinct job steps. The Fleet 
Accounting Module and Airframe Manufacturer Module are run in one job step. 

The Air Carrier Module is run in a second job step. The modules are 
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designed for batch processing. Hardware requirements include a card 
reader, a printer, and disk storage. In addition, plotter output is 
generated by the Fleet Accounting Module. The software is currently 
programmed for a ZETA 230 plotter. The models have been run of a CDC 7600 
with the SCOPE 2.1.3 operating system. CPU time is very modest for either 
job step. However, core requirements are substantial. The first job 
step requires 132K octal words, the second requires 154K octal words 
small core memory plus 144K octal words of large core memory. 

Method of Solution 

The methodology embedded in the ABC-ART models is described in 
detail in Volume I of this report (NASA CR-152278). The methodology for 
the Fleet Accounting, Airframe Manufacturer, and Air Carrier Modules are 
described in Sections II, III, and IV, respectively. 

Computer Configuration Required 

The ABC-ART models have been run on the NASA AMES CDC 7600, with the 
SCOPE 2.1.3 operating system. The only required input device is a card 
reader. Required output devices include a printer, a plotter, and disk 
storage. The job step which exercises the Fleet Accounting and Airframe 
Manufacturer Modules requires a printer, a plotter (software is provided 
for the ZETA 230 plotter), and four output disk files, two for storage of 
data generated for the plotter and two for temporary storage of input data. 
The job step that exercises the Air Carrier Module requires only a printer 
and a card reader. 
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Memory Required 


On the CDC 7600 there are two types of memory, small core memory (SCM) 
and large core memory (LCM) . The Fleet Accounting and Airframe Manufacturer 
Modules require 132K octal words of SCM and no LCM. The Air Carrier Module 
requires 154K octal words of SCM and 144K words of LCM to run. Variables 
were placed in LCM using the LEVEL 2 conversion for the CDC 7600. 

Source Language 

The ABC-ART models are programmed in CDC FORTRAN extended 4 language. 

The reference manual for this language is CDC Publication Number 84000009. 

The ZETA 230 plotter software is written in the same language, except for 
a single COMPASS routine (less than 1% of the code). COMPASS can be com- 
piled using the CDC FORTRAN compiler. 

User Instructions 

Instructions for use of ABC-ART models are provided in Volume I, 

Section V of this report where a sample run of the models is described. 

Implementation Instructions 

The software package is being submitted in the five data sets. Each 
data set consists of a single tape file except for the fifth data set, 
which is composed of four tape files. These files are described below: 


* 

On the NASA Ames computer system, 160K octal words of SCM and 1,200K octal 
works of LCM are available. 
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Data Sets 


Contents 


1 


2 

3 

4 

5 


Tape File 

1 FORTRAN source code for the Fleet 
Accounting and Airframe Manufacturer 
Modules (see Appendices C and D). 

2 FORTRAN and COMPASS source code for the 
ZETA 230 plotter software. 

3 FORTRAN source code for the Air Carrier 
Module (see Appendix E) . 

4 Data input for the sample run of the Air 
Carrier Module (see Volume I, Table 41). 


5, 6,7 ,8 Data input for sample run of the Fleet 

Accounting and Airframe Manufacturer 
Modules (see Volume I, Table 40). 


The tape containing these files is an unlabeled, 9-track tape in the 
EBCDIC character set with a density of 1600 BPI. The logical records are 
in card image format, 80 characters in length with no blocking. The tape 
was written on a CDC 7600 computer in SCOPE stranger format (i.e., F*S). 
No job control language is included in any of the files. 


Program Timing 

The CPU time required to run the ABC-ART models is quite modest. It 
will vary with the problem analyzed, the main factor being the number of 
new aircraft types. The sample run of the ABC-ART models, described in 
Volume I, Section V, took 22 and 4 CPU seconds for the Fleet Accounting 
and Airframe Manufacturer modules and Air Carrier Module, respectively. 

This time includes 5 and 3 CPU seconds, respectively, for compilation. 

Accuracy of Results 

The ABC-ART system does not contain mathematical or statistical routines 
that are very sensitive to word size. Single precision calculations on the 
CDC 7600 use a 60-bit word which provides a high degree of accuracy in 
computed results. 



Sample Input and Output 


Volume I uf this report provides sample Input and resulting output. 

In Section V, the sample problem Is described, including a listing of the 
card input. Excerpts from the resulting printed and plotted output for 
the Fleet Accounting, Airframe Manufacturer and Air Carrier Modules are 
provided in Sections II, III, and IV, respectively. 

Flowcharts 

Flowcharts °f the logic of each of the routines in the ABC-ART models 
have been provided in Volume I of this report. Flowcharts for the Fleet 
Accounting, Airframe Manufacturer, a- 1 Air Carrier Modules are provided in 
Sections II, III, and IV, respectively. 

Program Listing 

Listings of the FORTRAN code for the ABC-ART models are provided in 
Volume II of this report. Program listings for the Fleet Accounting, Air- 
frame Manufacturer, and Air Carrier Modules are provided in Appendices C, 
D, and E, respectively. 
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